home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / tx072291.zip / TXLABELS.PRG < prev    next >
Text File  |  1991-07-22  |  1KB  |  47 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXLABELS.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit()
  12. txreset()
  13.  
  14. _company   = "Texas Associated Software"
  15. _address1  = "523 La Cresta Drive"
  16. _address2  = "Red Oak, TX  75154"
  17. _phone     = "(214) 617-5260"
  18.  
  19. _customer  = "Customer Name"
  20. _caddress1 = "Customer Address"
  21. _caddress2 = "Customer City/State"
  22.  
  23. FOR I = 1 TO 60 STEP 10
  24.    txcolbox( I, 01, 39, 10, 1)
  25.    txcolbox( I, 41, 39, 10, 1)
  26. NEXT
  27.  
  28. FOR I = 1 TO 60 STEP 10
  29.    txcolprint( I    , 01, .T., _company)
  30.    txcolprint( I    , 41, .T., _company)
  31.    txcolprint( I + 1, 01, .F., _address1)
  32.    txcolprint( I + 1, 41, .F., _address1)
  33.    txcolprint( I + 2, 01, .F., _address2)
  34.    txcolprint( I + 2, 41, .F., _address2)
  35.  
  36.    txcolprint( I + 6, 15, .T., _customer)
  37.    txcolprint( I + 6, 55, .T., _customer)
  38.    txcolprint( I + 7, 15, .F., _caddress1)
  39.    txcolprint( I + 7, 55, .F., _caddress1)
  40.    txcolprint( I + 8, 15, .F., _caddress2)
  41.    txcolprint( I + 8, 55, .F., _caddress2)
  42. NEXT
  43.  
  44. txclear()
  45.  
  46. *: EOF: TXLABELS.PRG
  47.